home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / fb386 / tool / watanabe / short / un.bas < prev    next >
BASIC Source File  |  1995-08-19  |  2KB  |  66 lines
  1. 1000 '
  2. 1010 '懸賞当選運チェック　(C) Ryoichi.w  １９９５年５月30日
  3. 1020 '
  4. 1030 CLEAR
  5. 1040 DEFINT A-O,Q,S-Z
  6. 1050 DEFDBL P,R
  7. 1060 SCREEN 0:SCREEN@0
  8. 1070 COLOR 7,%0,,4:CLS
  9. 1080 CONSOLE 0,25,0
  10. 1090 '
  11. 1100 LOCATE 13,1
  12. 1110 PRINT"Ｏｈ！FMＴＯＷＮＳの懸賞に当たる確率を調べるプログラム"
  13. 1120 COLOR 4:LOCATE 13,3
  14. 1130 PRINT"題して『Ｏｈ！FMＴＯＷＮＳ懸賞当選確率計算プログラム』"
  15. 1140 LOCATE 1,5:PRINT"略して『Ｏｈ！FMＴＯＷＮＳの懸賞に当選する確率は一体いくつか計算プログラム』"
  16. 1150 COLOR 1
  17. 1160 LOCATE 60,4:PRINT"ｵｲｵｲ､そのまんｯまや!!"
  18. 1170 LOCATE 60,6:PRINT"略してない！略して…"
  19. 1180 '
  20. 1190 S=1:LOCATE 0,8:COLOR 7
  21. 1200 PRINT"あなたは、何回懸賞に応募しましたか（↑増・↓減）？        １回"
  22. 1210 *INPUT
  23. 1220   K$=INKEY$
  24. 1230   IF K$=CHR$(&H1E) AND S<999 THEN
  25. 1240     S=S+1
  26. 1250   ELSE IF K$=CHR$(&H1F) AND S>0   THEN
  27. 1260     S=S-1
  28. 1270   ELSE IF K$=CHR$(&H0D) THEN
  29. 1280     GOTO *計算
  30. 1290   ELSE
  31. 1300     GOTO *INPUT
  32. 1310 ENDIF
  33. 1320   LOCATE 50,8:P=S:GOSUB *数値表示
  34. 1330   GOTO *INPUT
  35. 1340 '
  36. 1350 *計算
  37. 1360   IF S=0 THEN
  38. 1370     COLOR 6
  39. 1380     LOCATE 10,10:PRINT"応募しないのに、当たるわきゃね～だろ！"
  40. 1390   ELSE
  41. 1400     IF S<5 THEN T=7 ELSE IF S<10 THEN T=6 ELSE IF S<20 THEN T=5 ELSE IF S<50 THEN T=4 ELSE IF S<100 THEN T=3 ELSE IF S<300 THEN T=2 ELSE T=1
  42. 1410     COLOR 7
  43. 1420     LOCATE 30,11:PRINT"応募回数          回"
  44. 1430     LOCATE 30,13:PRINT"当選確率          ％"
  45. 1440     COLOR 5:R=.019#
  46. 1450     FOR I=1 TO S
  47. 1460       LOCATE 38,11:P=I:GOSUB *数値表示
  48. 1470       LOCATE 38,13:P=INT(R*1000)/10:Z=-1:GOSUB *数値表示:Z=0
  49. 1480       '
  50. 1490       '平均３８個÷２０００人＝１．９％
  51. 1500       RR=R:R=R+(1-R)*.019#:RR=R-RR
  52. 1510       '
  53. 1520       '効果音
  54. 1530       BEEP &H58C03,T,1200+S:WAIT T
  55. 1540       BEEP &H58C03,T,1150+S:WAIT T
  56. 1550       BEEP &H58C03,T,1300+S:WAIT T+1
  57. 1560     NEXT
  58. 1570   ENDIF
  59. 1580   END
  60. 1590   '
  61. 1600 *数値表示
  62. 1610   P$=STR$(P)
  63. 1620   IF Z AND P=INT(P) THEN P$=P$+".0"
  64. 1630   PRINT AKCNV$(STRING$(5-LEN(P$),&H20)+P$)
  65. 1640   RETURN
  66.